home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Tools / Text-Viewer / Notes / english / Notes.pprx < prev    next >
Encoding:
Text File  |  1999-11-06  |  18.2 KB  |  696 lines
  1. /*
  2. @B Notes V. 1.2 @P@ICopyright A.Faust 1999
  3.  This Genie prints notes
  4. */
  5.  
  6. /* History
  7.  
  8.     Version 1.0 (January 1999)
  9.     - first release
  10.  
  11.     Version 1.1. (2.2.99)
  12.     -some errors removed in the #?.files
  13.     -notationsrule for the "notefiles" altered
  14.      (in the case of - "n" - natural sign
  15.       like the other in one line)
  16.  
  17.     Version 1.2  (10.2.99)
  18.     -removed a error if givein is a b-accidental (example:"AB3")
  19.     -simplified the routine for accidentals
  20.     -added the possibility of writing single notelines with one
  21.      notekey
  22.     -multiple questions at the beginning collected in one requester
  23.     -expanded the range of the violinkey
  24. */
  25.  
  26.  
  27. address command
  28.  
  29. 'execute C:AssignNotenDruck'
  30.  
  31.  
  32. /*
  33.    The file "AssignNotePrint" in the C: directory shall be written
  34.    with a normal texteditor, like ed or AE(Articel Editor from ProPage).
  35.    There will be assigned where the Genie looks for the Notefiles.
  36.    Also will be assigned the directory, where are the genies from ProPage
  37.    are placed.
  38.  
  39.    example:
  40.    assign Notes:   Work:MyNoteFileDirectory
  41.    assign Genies:  DTP:ProPage/ARexx
  42.                    |_______________________|
  43.  
  44.                    please insert your paths here
  45.  
  46. */
  47.  
  48. call SafeEndEdit.rexx()
  49. call ppm_AutoUpdate(0)
  50. call ppm_SetWireframe(0)
  51. notex=0
  52. notey=0
  53. call ppm_SetLineWeight(0.25)
  54. call ppm_SetMagMode(300)
  55. call ppm_SetBoxOutlines(0)
  56.  
  57. signal on halt
  58. signal on break_c
  59. signal on break_e
  60. signal on break_d
  61.  
  62.  
  63. start:
  64. do
  65.   neu = ppm_GetUserText(2, "New begin? (ALL WILL BE DELETED !!!!) Nothing=Break y/n")
  66.     if neu == "Y" then neu = "y"
  67.     if neu == "N" then neu = "n"
  68.  
  69.   select
  70.     when neu == "y" then
  71.         do
  72.         sicher =
  73.         call ppm_New()
  74.         call ppm_SetUnits(2)
  75.         call ppm_SetMagMode(200)
  76.         call ppm_SetFont('(CG)Times')
  77.         pgnm = ppm_CreatePage(1, 1, 0)
  78.         call ppm_SetPageType(pgnm, 4)
  79.         call ppm_SetRulerType(4)
  80.         call ppm_SetBoxLock(0, 0)
  81.         call ppm_DeleteBox(0)
  82.  
  83.         /* Headline */
  84.  
  85.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  86.         call ppm_SetSize(20)
  87.         call ppm_SetStyle(U)
  88.         call ppm_SetJustification(2)
  89.         call ppm_TextIntoBox(haedln, 'Title')
  90.         end
  91.     when neu == "n" then notenlinien()
  92.     otherwise exit_msg("User Break!")
  93.   end
  94.  
  95. notenlinien:
  96.   cr = '0a'x
  97.   form = "notelines ?    (y/n):y"cr"2/1 system (2/1v/1b):2"cr"accidentals (1#=1 #):"cr"time       (4/4=4 4):4 4"cr"v_iol/b_ass  [f_ile]:v"
  98.   eingabe = ppm_GetForm("Please give in ...          ", 5, form)
  99.   parse var eingabe res '0a'x systemart '0a'x vorz '0a'x takt '0a'x violbass
  100.   if systemart == '1B' then systemart = '1b'
  101.   if systemart == '1V' then systemart = '1v'
  102.   if res == '' then res = 'y'
  103.   if res == 'J' then res = 'y'
  104.   if res == 'y' then
  105.   do
  106.  
  107.         call ppm_SetUnits(2)
  108.         call ppm_SetMagMode(200)
  109.         call ppm_SetFont('(CG)Times')
  110.         pgnm = ppm_CurrentPage()
  111.         call ppm_SetPageType(pgnm, 4)
  112.         call ppm_SetRulerType(4)
  113.         call ppm_SetBoxLock(0, 0)
  114.         call ppm_DeleteBox(0)
  115.  
  116.         /* headline */
  117.  
  118.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  119.         call ppm_SetSize(20)
  120.         call ppm_SetStyle(U)
  121.         call ppm_SetJustification(2)
  122.         call ppm_TextIntoBox(haedln, 'Title')
  123.  
  124.         /* Autor */
  125.  
  126.         autor = ppm_CreateBox(13, 0.9, 6.5, 0.64, 0)
  127.         call ppm_SetSize(12)
  128.         call ppm_SetStyle(U)
  129.         call ppm_SetJustification(1)
  130.         call ppm_TextIntoBox(autor, "Autor: © Noname")
  131.  
  132.  
  133.      /* Draw notelines */
  134.  
  135.      do a=1 to 12
  136.        do b=1 to 5
  137.           call ppm_DrawLine(0, a*2+((b-1)/5), 19.5, a*2+((b-1)/5))
  138.        end
  139.      end
  140.  
  141.      /* Notekey and bracket at front */
  142.  
  143.      if systemart == '1v' then
  144.      do
  145.         call ppm_SetFont('(CG)Noten')
  146.  
  147.         violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  148.         call ppm_SetStyle(N)
  149.         call ppm_SetJustification(0)
  150.         call ppm_SetSize(45)
  151.         call ppm_TextIntoBox(violschl, 't')
  152.  
  153.         do c=1 to 11
  154.           call ppm_CloneBox(violschl, 0, (c*2))
  155.         end
  156.      end
  157.  
  158.      if systemart == '1b' then
  159.      do
  160.         call ppm_SetFont('(CG)Noten')
  161.  
  162.         bassschl = ppm_CreateBox(0.034, 1.88, 1.1, 1.1, 0)
  163.         call ppm_SetStyle(N)
  164.         call ppm_SetJustification(0)
  165.         call ppm_SetSize(30)
  166.         call ppm_TextIntoBox(bassschl, 'b')
  167.  
  168.         do c=1 to 11
  169.           call ppm_CloneBox(bassschl, 0, (c*2))
  170.         end
  171.      end
  172.  
  173.      if systemart == '2' then
  174.      do
  175.         call ppm_SetFont('(CG)Noten')
  176.  
  177.         violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  178.         call ppm_SetStyle(N)
  179.         call ppm_SetJustification(0)
  180.         call ppm_SetSize(45)
  181.         call ppm_TextIntoBox(violschl, 't')
  182.  
  183.         bassschl = ppm_CreateBox(0.034, 3.88, 1.1, 1.1, 0)
  184.         call ppm_SetSize(30)
  185.         call ppm_TextIntoBox(bassschl, 'b')
  186.  
  187.         call ppm_SetLineWeight(4)
  188.         vl = ppm_DrawLine(0, 1.98, 0, 4.82)
  189.  
  190.         call ppm_SetLineWeight(2)
  191.         vo = ppm_DrawLine(-0.07, 2.08, 0.303, 1.7627)
  192.         vu = ppm_DrawLine(-0.07, 4.74, 0.303, 5.052)
  193.  
  194.         do c=1 to 5
  195.           call ppm_CloneBox(violschl, 0, (c*4))
  196.           call ppm_CloneBox(bassschl, 0, (c*4))
  197.           call ppm_CloneBox(vl, 0, (c*4))
  198.           call ppm_CloneBox(vo, 0, (c*4))
  199.           call ppm_CloneBox(vu, 0, (c*4))
  200.         end
  201.      end
  202.      vorzeichen()
  203.   end
  204.   else
  205.   do
  206.    if res == 'N' then res = 'n'
  207.    if res == 'n' then vorzeichen()
  208.    else start()
  209.   end
  210. end
  211.  
  212. noteneingabe:
  213.  if violbass == '' then notenlinien()
  214.  resa = word(violbass,1)
  215.  resb = word(violbass,2)
  216.  if resa=='V' then resa = 'v'
  217.  if resa=='B' then resa = 'b'
  218.  if resb=='F' then resb = 'f'
  219.  select
  220.    when resa=='v' then violschl()
  221.    when resa=='b' then basschl()
  222.    otherwise noteneingabe()
  223.  end
  224.  
  225. violschl:
  226.  do
  227.  call ppm_SetFont('(CG)Noten')
  228.  select
  229.     when resb='' then
  230.     do
  231.      address command
  232.      rx 'Genies:Violinkey.rexx'
  233.     end
  234.     when resb='f' then
  235.     do
  236.      address command
  237.      rx 'Genies:Violinkey.file'
  238.     end
  239.     otherwise noteneingabe()
  240.  end
  241.  exit
  242.  end
  243.  
  244. basschl:
  245.  do
  246.  call ppm_SetFont('(CG)Noten')
  247.  select
  248.     when resb='' then
  249.     do
  250.      address command
  251.      rx 'Genies:Basskey.rexx'
  252.     end
  253.     when resb='f' then
  254.     do
  255.      address command
  256.      rx 'Genies:Basskey.file'
  257.     end
  258.     otherwise noteneingabe()
  259.  end
  260.  exit
  261.  end
  262.  
  263. exit
  264.  
  265. vorzeichen:
  266.  
  267. if vorz == "" then
  268. do
  269.   k = 0
  270.   takt()
  271. end
  272.  
  273. else
  274. do
  275.    call ppm_SetFont('(CG)Noten')
  276.    call ppm_SetSize(20)
  277.    zahl = word(vorz, 1)
  278.    if zahl >6 then vorzeichen()
  279.    art  = word(vorz, 2)
  280.    if art == 'B' then art = 'b'
  281.    yy = 0.28
  282.    j = 0
  283.    k = zahl
  284.  select
  285.    when art == 'b' then
  286.    do
  287.    art = 'f'
  288.       if systemart == '2' then
  289.       do
  290.         do i=1 to 6
  291.            if zahl== 1 then
  292.              do
  293.                call vorzeichenbox 1, (1.95+j)
  294.                call vorzeichenbox 1, (4.15+j)
  295.              end
  296.  
  297.            if zahl == 2 then
  298.              do
  299.                call vorzeichenbox 1, (1.95+j)
  300.                call vorzeichenbox 1, (4.15+j)
  301.                call vorzeichenbox 1.2, (1.65+j)
  302.                call vorzeichenbox 1.2, (3.85+j)
  303.              end
  304.  
  305.            if zahl == 3 then
  306.              do
  307.                call vorzeichenbox 1, (1.95+j)
  308.                call vorzeichenbox 1, (4.15+j)
  309.                call vorzeichenbox 1.2, (1.65+j)
  310.                call vorzeichenbox 1.2, (3.85+j)
  311.                call vorzeichenbox 1.4, (2.05+j)
  312.                call vorzeichenbox 1.4, (4.25+j)
  313.              end
  314.  
  315.            if zahl == 4 then
  316.              do
  317.              call vorzeichenbox 1, (1.95+j)
  318.              call vorzeichenbox 1, (4.15+j)
  319.              call vorzeichenbox 1.2, (1.65+j)
  320.              call vorzeichenbox 1.2, (3.85+j)
  321.              call vorzeichenbox 1.4, (2.05+j)
  322.              call vorzeichenbox 1.4, (4.25+j)
  323.              call vorzeichenbox 1.6, (1.75+j)
  324.              call vorzeichenbox 1.6, (3.95+j)
  325.              end
  326.  
  327.            if zahl == 5 then
  328.              do
  329.              call vorzeichenbox 1, (1.95+j)
  330.              call vorzeichenbox 1, (4.15+j)
  331.              call vorzeichenbox 1.2, (1.65+j)
  332.              call vorzeichenbox 1.2, (3.85+j)
  333.              call vorzeichenbox 1.4, (2.05+j)
  334.              call vorzeichenbox 1.4, (4.25+j)
  335.              call vorzeichenbox 1.6, (1.75+j)
  336.              call vorzeichenbox 1.6, (3.95+j)
  337.              call vorzeichenbox 1.8, (2.15+j)
  338.              call vorzeichenbox 1.8, (4.35+j)
  339.              end
  340.  
  341.            if zahl == 6 then
  342.              do
  343.                call vorzeichenbox 1, (1.95+j)
  344.                call vorzeichenbox 1, (4.15+j)
  345.                call vorzeichenbox 1.2, (1.65+j)
  346.                call vorzeichenbox 1.2, (3.85+j)
  347.                call vorzeichenbox 1.4, (2.05+j)
  348.                call vorzeichenbox 1.4, (4.25+j)
  349.                call vorzeichenbox 1.6, (1.75+j)
  350.                call vorzeichenbox 1.6, (3.95+j)
  351.                call vorzeichenbox 1.8, (2.15+j)
  352.                call vorzeichenbox 1.8, (4.35+j)
  353.                call vorzeichenbox 2.0, (1.85+j)
  354.                call vorzeichenbox 2.0, (4.05+j)
  355.              end
  356.            j=j+4
  357.         end
  358.       end
  359.       if systemart == '1b' then
  360.       do
  361.         do i=1 to 12
  362.            if zahl== 1 then
  363.              do
  364.                call vorzeichenbox 1, (2.15+j)
  365.              end
  366.  
  367.            if zahl == 2 then
  368.              do
  369.                call vorzeichenbox 1, (2.15+j)
  370.                call vorzeichenbox 1.2, (1.85+j)
  371.              end
  372.  
  373.            if zahl == 3 then
  374.              do
  375.                call vorzeichenbox 1, (2.15+j)
  376.                call vorzeichenbox 1.2, (1.85+j)
  377.                call vorzeichenbox 1.4, (2.25+j)
  378.              end
  379.  
  380.            if zahl == 4 then
  381.              do
  382.                call vorzeichenbox 1, (2.15+j)
  383.                call vorzeichenbox 1.2, (1.85+j)
  384.                call vorzeichenbox 1.4, (2.25+j)
  385.                call vorzeichenbox 1.6, (1.95+j)
  386.              end
  387.  
  388.            if zahl == 5 then
  389.              do
  390.                call vorzeichenbox 1, (2.15+j)
  391.                call vorzeichenbox 1.2, (1.85+j)
  392.                call vorzeichenbox 1.4, (2.25+j)
  393.                call vorzeichenbox 1.6, (1.95+j)
  394.                call vorzeichenbox 1.8, (2.35+j)
  395.              end
  396.  
  397.            if zahl == 6 then
  398.              do
  399.                call vorzeichenbox 1, (2.15+j)
  400.                call vorzeichenbox 1.2, (1.85+j)
  401.                call vorzeichenbox 1.4, (2.25+j)
  402.                call vorzeichenbox 1.6, (1.95+j)
  403.                call vorzeichenbox 1.8, (2.35+j)
  404.                call vorzeichenbox 2.0, (2.05+j)
  405.              end
  406.            j=j+2
  407.         end
  408.       end
  409.       if systemart == '1v' then
  410.       do
  411.        do i=1 to 12
  412.           if zahl== 1 then
  413.             do
  414.               call vorzeichenbox 1, (1.95+j)
  415.             end
  416.  
  417.           if zahl == 2 then
  418.             do
  419.               call vorzeichenbox 1, (1.95+j)
  420.               call vorzeichenbox 1.2, (1.65+j)
  421.             end
  422.  
  423.           if zahl == 3 then
  424.             do
  425.               call vorzeichenbox 1, (1.95+j)
  426.               call vorzeichenbox 1.2, (1.65+j)
  427.               call vorzeichenbox 1.4, (2.05+j)
  428.             end
  429.  
  430.           if zahl == 4 then
  431.             do
  432.             call vorzeichenbox 1, (1.95+j)
  433.             call vorzeichenbox 1.2, (1.65+j)
  434.             call vorzeichenbox 1.4, (2.05+j)
  435.             call vorzeichenbox 1.6, (1.75+j)
  436.             end
  437.  
  438.           if zahl == 5 then
  439.             do
  440.             call vorzeichenbox 1, (1.95+j)
  441.             call vorzeichenbox 1.2, (1.65+j)
  442.             call vorzeichenbox 1.4, (2.05+j)
  443.             call vorzeichenbox 1.6, (1.75+j)
  444.             call vorzeichenbox 1.8, (2.15+j)
  445.             end
  446.  
  447.           if zahl == 6 then
  448.             do
  449.               call vorzeichenbox 1, (1.95+j)
  450.               call vorzeichenbox 1.2, (1.65+j)
  451.               call vorzeichenbox 1.4, (2.05+j)
  452.               call vorzeichenbox 1.6, (1.75+j)
  453.               call vorzeichenbox 1.8, (2.15+j)
  454.               call vorzeichenbox 2.0, (1.85+j)
  455.             end
  456.           j=j+2
  457.        end
  458.       end
  459.    end
  460.  
  461.    when art == '#' then
  462.    do
  463.    art = 's'
  464.        if systemart == '2' then
  465.        do
  466.          do i=1 to 6
  467.             if zahl == 1 then
  468.               do
  469.                 call vorzeichenbox 1, (1.67+j)
  470.                 call vorzeichenbox 1, (3.87+j)
  471.               end
  472.  
  473.             if zahl == 2 then
  474.               do
  475.                 call vorzeichenbox 1, (1.67+j)
  476.                 call vorzeichenbox 1, (3.87+j)
  477.                 call vorzeichenbox 1.2, (1.97+j)
  478.                 call vorzeichenbox 1.2, (4.17+j)
  479.               end
  480.  
  481.             if zahl == 3 then
  482.               do
  483.                 call vorzeichenbox 1, (1.67+j)
  484.                 call vorzeichenbox 1, (3.87+j)
  485.                 call vorzeichenbox 1.2, (1.97+j)
  486.                 call vorzeichenbox 1.2, (4.17+j)
  487.                 call vorzeichenbox 1.4, (1.57+j)
  488.                 call vorzeichenbox 1.4, (3.77+j)
  489.               end
  490.  
  491.             if zahl == 4 then
  492.               do
  493.                 call vorzeichenbox 1, (1.67+j)
  494.                 call vorzeichenbox 1, (3.87+j)
  495.                 call vorzeichenbox 1.2, (1.97+j)
  496.                 call vorzeichenbox 1.2, (4.17+j)
  497.                 call vorzeichenbox 1.4, (1.57+j)
  498.                 call vorzeichenbox 1.4, (3.77+j)
  499.                 call vorzeichenbox 1.6, (1.87+j)
  500.                 call vorzeichenbox 1.6, (4.07+j)
  501.               end
  502.  
  503.             if zahl == 5 then
  504.               do
  505.                 call vorzeichenbox 1, (1.67+j)
  506.                 call vorzeichenbox 1, (3.87+j)
  507.                 call vorzeichenbox 1.2, (1.97+j)
  508.                 call vorzeichenbox 1.2, (4.17+j)
  509.                 call vorzeichenbox 1.4, (1.57+j)
  510.                 call vorzeichenbox 1.4, (3.77+j)
  511.                 call vorzeichenbox 1.6, (1.87+j)
  512.                 call vorzeichenbox 1.6, (4.07+j)
  513.                 call vorzeichenbox 1.8, (2.17+j)
  514.                 call vorzeichenbox 1.8, (4.37+j)
  515.               end
  516.  
  517.             if zahl == 6 then
  518.               do
  519.                 call vorzeichenbox 1, (1.67+j)
  520.                 call vorzeichenbox 1, (3.87+j)
  521.                 call vorzeichenbox 1.2, (1.97+j)
  522.                 call vorzeichenbox 1.2, (4.17+j)
  523.                 call vorzeichenbox 1.4, (1.57+j)
  524.                 call vorzeichenbox 1.4, (3.77+j)
  525.                 call vorzeichenbox 1.6, (1.87+j)
  526.                 call vorzeichenbox 1.6, (4.07+j)
  527.                 call vorzeichenbox 1.8, (2.17+j)
  528.                 call vorzeichenbox 1.8, (4.37+j)
  529.                 call vorzeichenbox 2.0, (1.77+j)
  530.                 call vorzeichenbox 2.0, (3.97+j)
  531.               end
  532.             j=j+4
  533.          end
  534.        end
  535.        if systemart == '1b' then
  536.        do
  537.          do i=1 to 12
  538.             if zahl == 1 then
  539.               do
  540.                 call vorzeichenbox 1, (1.87+j)
  541.               end
  542.  
  543.             if zahl == 2 then
  544.               do
  545.                 call vorzeichenbox 1, (1.87+j)
  546.                 call vorzeichenbox 1.2, (2.17+j)
  547.               end
  548.  
  549.             if zahl == 3 then
  550.               do
  551.                 call vorzeichenbox 1, (1.87+j)
  552.                 call vorzeichenbox 1.2, (2.17+j)
  553.                 call vorzeichenbox 1.4, (1.77+j)
  554.               end
  555.  
  556.             if zahl == 4 then
  557.               do
  558.                 call vorzeichenbox 1, (1.87+j)
  559.                 call vorzeichenbox 1.2, (2.17+j)
  560.                 call vorzeichenbox 1.4, (1.77+j)
  561.                 call vorzeichenbox 1.6, (2.07+j)
  562.               end
  563.  
  564.             if zahl == 5 then
  565.               do
  566.                 call vorzeichenbox 1, (1.87+j)
  567.                 call vorzeichenbox 1.2, (2.17+j)
  568.                 call vorzeichenbox 1.4, (1.77+j)
  569.                 call vorzeichenbox 1.6, (2.07+j)
  570.                 call vorzeichenbox 1.8, (2.37+j)
  571.               end
  572.  
  573.             if zahl == 6 then
  574.               do
  575.                 call vorzeichenbox 1, (1.87+j)
  576.                 call vorzeichenbox 1.2, (2.17+j)
  577.                 call vorzeichenbox 1.4, (1.77+j)
  578.                 call vorzeichenbox 1.6, (2.07+j)
  579.                 call vorzeichenbox 1.8, (1.37+j)
  580.                 call vorzeichenbox 2.0, (2.97+j)
  581.               end
  582.             j=j+2
  583.          end
  584.        end
  585.        if systemart == '1v' then
  586.        do
  587.          do i=1 to 12
  588.             if zahl == 1 then
  589.               do
  590.                 call vorzeichenbox 1, (1.67+j)
  591.               end
  592.  
  593.             if zahl == 2 then
  594.               do
  595.                 call vorzeichenbox 1, (1.67+j)
  596.                 call vorzeichenbox 1.2, (1.97+j)
  597.               end
  598.  
  599.             if zahl == 3 then
  600.               do
  601.                 call vorzeichenbox 1, (1.67+j)
  602.                 call vorzeichenbox 1.2, (1.97+j)
  603.                 call vorzeichenbox 1.4, (1.57+j)
  604.               end
  605.  
  606.             if zahl == 4 then
  607.               do
  608.                 call vorzeichenbox 1, (1.67+j)
  609.                 call vorzeichenbox 1.2, (1.97+j)
  610.                 call vorzeichenbox 1.4, (1.57+j)
  611.                 call vorzeichenbox 1.6, (1.87+j)
  612.               end
  613.  
  614.             if zahl == 5 then
  615.               do
  616.                 call vorzeichenbox 1, (1.67+j)
  617.                 call vorzeichenbox 1.2, (1.97+j)
  618.                 call vorzeichenbox 1.4, (1.57+j)
  619.                 call vorzeichenbox 1.6, (1.87+j)
  620.                 call vorzeichenbox 1.8, (2.17+j)
  621.               end
  622.  
  623.             if zahl == 6 then
  624.               do
  625.                 call vorzeichenbox 1, (1.67+j)
  626.                 call vorzeichenbox 1.2, (1.97+j)
  627.                 call vorzeichenbox 1.4, (1.57+j)
  628.                 call vorzeichenbox 1.6, (1.87+j)
  629.                 call vorzeichenbox 1.8, (2.17+j)
  630.                 call vorzeichenbox 2.0, (1.77+j)
  631.               end
  632.             j=j+2
  633.          end
  634.        end
  635.    end
  636.    otherwise vorzeichen()
  637.  end
  638. takt()
  639. end
  640.  
  641. takt:
  642. do
  643.  call ppm_SetFont('(CG)Times')
  644.  call ppm_SetSize(16)
  645.  
  646.  if takt ~= '' then
  647.   do
  648.    oben  = WORD(takt, 1)
  649.    unten = WORD(takt, 2)
  650.    if unten == '' then takt()
  651.    id = ppm_CreateBox(1.15+(k*0.2), 2,  0.3, 0.6, 0)
  652.    call ppm_TextIntoBox(id, oben)
  653.    id = ppm_CreateBox(1.15+(k*0.2), 2.4,  0.3, 0.6, 0)
  654.    call ppm_TextIntoBox(id, unten)
  655.    if systemart == '2' then
  656.      do
  657.        id = ppm_CreateBox(1.15+(k*0.2), 4,  0.3, 0.6, 0)
  658.        call ppm_TextIntoBox(id, oben)
  659.        id = ppm_CreateBox(1.15+(k*0.2), 4.4,  0.3, 0.6, 0)
  660.        call ppm_TextIntoBox(id, unten)
  661.      end
  662.   end
  663.  else NOP
  664.  call ppm_SetFont('(CG)Noten')
  665.  call ppm_SetSize(20)
  666.  call ppm_UpdateScreen()
  667.  noteneingabe()
  668. end
  669.  
  670. vorzeichenbox:
  671. do
  672.     parse arg bx,by
  673.     id = ppm_CreateBox(bx, by,  0.35, 0.75, 0)
  674.     call ppm_TextIntoBox(id, art)
  675. return
  676. end
  677.  
  678. break_d:
  679. break_e:
  680. break_c:
  681. halt:
  682.     call exit_msg("User aborted Genie!")
  683.  
  684. exit_msg: procedure
  685. do
  686.     parse arg message
  687.  
  688.     if message ~= '' then
  689.     call ppm_Inform(1,message,)
  690.  
  691.     call ppm_ClearStatus()
  692.     call ppm_AutoUpdate(1)
  693.     exit
  694. end
  695.  
  696.